perm filename PRINTF.VLI[VLI,LSP] blob sn#382056 filedate 1978-09-08 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 Sortie d'un fichier non formate 
C00003 ENDMK
CāŠ—;
; Sortie d'un fichier non formate ;

(DE PRINTF (fi)
   ; sort un fichier vraiment vraiment degeulasse ;
   (INPUT fi)
   (DE EOF () (REMPROP 'EOF EXPR) (TERPRI) (INPUT) (&EOF))
   (ESCAPE &EOF 
	(SETQ nbcharlin 70)
	(WHILE T
	   (SETQ char (READCH))
	   (IF (NOT (CASCII char) \20)  () ; c'est caca ;
	       (IF (AND (EQ (CASCII char) 127)
			(EQ (CASCII (PEEKCH)) 127))
		   (PROGN (READCH)(READCH) (TERPRI 2))
	       (PRINC char)
	       (INCR nbcharlin)
	       (AND (LEZP nbcharlin)
		    (SETQ nbcharlin 70)
		    (TERPRI))))))
   fi)